home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / colsoncd.dxr / special_18.ls < prev    next >
Encoding:
Text File  |  2000-01-11  |  504 b   |  18 lines
  1. on mouseUp
  2.   put "TOE1; " into field "op"
  3.   delete char -30000 of field "op"
  4.   delete char -30000 of field "op"
  5.   put field "op" into field "mainop"
  6.   put "cargoctoe" into field "maincasterphoto"
  7.   puppetTransition(47, 1, 8)
  8.   put the number of lines in field "tblca_Fe,FEATURE"
  9.   if the number of chars in field "Tblca_Fe,FEATURE" > 200 then
  10.     put field "Tblca_Fe,FEATURE" into field "specbfea"
  11.     play frame "specb"
  12.     abort()
  13.   end if
  14.   puppetSound("foundspec")
  15.   play frame "speca"
  16.   abort()
  17. end
  18.